home *** CD-ROM | disk | FTP | other *** search
/ Wild Blue Yonder 1: 50 Years of Gs & Jets / Wild Blue Yonder - Episode 1 - 50 Years of Gs and Jets (Digital Ranch) (Spectrum Holobyte)(1-107-40-101)(1994).iso / control / panel.dir / 00721_Script_721 < prev    next >
Text File  |  1994-08-29  |  411b  |  19 lines
  1. on checkButtons
  2.   
  3.   global buttonZone, buttonWidth, buttonGap
  4.   
  5.   set H        = the mouseH
  6.   set leftEdge = the left of sprite buttonZone
  7.   
  8.   repeat with i = 1 to 8
  9.     
  10.     if H > (leftEdge + (i-1) * (buttonWidth + buttonGap)) and ¼
  11.        H < (leftEdge + (i * buttonWidth) + ((i-1) * buttonGap)) then
  12.       executeButton( i )
  13.       exit
  14.     end if
  15.     
  16.   end repeat
  17.   
  18. end checkButtons
  19.